home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tu.d64 / nightmare park.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  430 lines
  1. 0 POKE56576,PEEK(56576)AND253
  2. 1 POKE53272,5:POKE648,128
  3. 2 POKE55,255:POKE56,127
  4. 3 POKE53280,0:POKE53281,0:PRINT"";
  5. 4 DIMGD(5,2)
  6. 5 DIMTR(61)
  7. 10 PRINT"[147]DO ANY DARE TO ENTER
  8. 20 [153]"NIGHTMARE PARK
  9. 30 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214]
  10. 40 [153]"NIGHTMARE PARK
  11. 45 IFZD=1ANDTI$<"000005"THEN20
  12. 46 IFZD=1THENRUN
  13. 50 GETA$:IFA$=""THEN52
  14. 52 IFA$="Y"ORA$="N"THEN57
  15. 55 GOTO20
  16. 57 IFA$="N"THENPRINT"[147]YOU ARE WISE":END
  17. 58 PRINT"[147]WHAT IS THE NAME OF THE FOOLISH ONE
  18. 59 [133]"  -CMDCMDCMD";N$
  19. 60 [139]N$[178]"-"[167]58
  20. 61 [129]I[178]1[164]61
  21. 65 [135]TR(I)
  22. 70 TR(I)[178]TR(I)[170]32768
  23. 75 [130]
  24. 85 [153]"LOADUSE THE 'M','J','L' AND 'I' KEYS TO MOVE
  25. 86 PRINT"OH ";N$",PREPARE TO DIE!
  26. 87 [129]I[178]1[164]4000:[130]I
  27. 90 PO[178]32787
  28. 100 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  29. 110 [153]"ONSPC(                                      SPC("
  30. 113 [151]PO,170
  31. 120 [153]"ONSPC(                                      SPC("
  32. 130 [153]"ONSPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC("
  33. 140 [153]"ONSPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC("
  34. 150 [153]"ONSPC(          SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(          SPC("
  35. 160 [153]"ONSPC(          SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(          SPC("
  36. 170 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(    SPC(SPC(    SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  37. 180 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  38. 190 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  39. 200 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  40. 210 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  41. 220 [153]"ONSPC(    SPC(SPC(                          SPC(SPC(    SPC("
  42. 230 [153]"ONSPC(              SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(              SPC("
  43. 240 [153]"ONSPC(                  SPC(SPC(                  SPC("
  44. 250 [153]"ONSPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  45. 260 [153]"ONSPC(                SPC(SPC(SPC(SPC(SPC(SPC(                SPC("
  46. 270 [153]"ONSPC(  SPC( SPC(SPC(SPC(SPC(SPC(SPC(     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(     SPC(SPC(SPC(SPC(SPC(SPC( SPC(  SPC("
  47. 280 [153]"ONSPC(  SPC(           SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(           SPC(  SPC("
  48. 290 [153]"ONSPC(  SPC(   SPC(SPC(                      SPC(SPC(   SPC(  SPC("
  49. 300 [153]"ONSPC(      SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(      SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(      SPC("
  50. 310 [153]"ONSPC(              SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(              SPC("
  51. 320 [153]"ONSPC(                                      SPC("
  52. 329 [153]"ONSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  53. 331 DG[178][187](1)
  54. 333 [151]33726,102:[151]33727,102
  55. 340 [129]I[178]1[164]59:[151]TR(I),96
  56. 345 [130]
  57. 347 [129]I[178]1[164]50
  58. 349 [151]PO,86
  59. 350 [151]PO,42
  60. 354 [130]
  61. 360 [129]I[178]1[164]10:[161]A$:[139]A$[178]""[167]361
  62. 361 [130]
  63. 362 [161]A$:[139]A$[178]""[167]362
  64. 363 QT[178]0
  65. 365 MO[178]0
  66. 370 [139]A$[178]"M"[167]MO[178]40
  67. 380 [139]A$[178]"J"[167]MO[178][171]1
  68. 390 [139]A$[178]"L"[167]MO[178]1
  69. 395 [139]A$[178]"I"[167]MO[178][171]40
  70. 400 [139]MO[178]0[167]360
  71. 405 [139][194](PO[170]MO)[178]96[167]QT[178]1:[137]414
  72. 410 [139][194](PO[170]MO)[178]32[167]414
  73. 412 [137]360
  74. 414 [151]PO,32
  75. 415 PO[178]PO[170]MO
  76. 418 [151]PO,42
  77. 419 [139]QT[178]1[167]1000
  78. 420 [139] PO[178]32768[170]940 [176] PO[178]32768[170]941 [167] 2000
  79. 430 [139]PO[178]TR(I)[167]1000
  80. 440 [137]360
  81. 1000 [129]I[178]1[164]100
  82. 1010 [151]PO,86
  83. 1020 [151]PO,170
  84. 1025 [139]I[178]80[167][153]"LOAD
  85. 1030 NEXT
  86. 1040 PRINT"[147]
  87. 1055 TP[178]0:TM[178]0
  88. 1060 T[178][181]([187](1)[172]5)[170]1
  89. 1070 [145] T [141] 3000,4000,5000,6000,7000,8000,9000,10000,11000
  90. 1080 [153]"LOADSO YOU SURVIVED THIS TIME.
  91. 1090 FORI=1TO4000
  92. 1100 PRINT"BAH! IT MEANS NOTHING!
  93. 1101 PO[178]PO[170]MO
  94. 1105 [129]I[178]1[164]3000:[130]
  95. 1110 [129]I[178]1[164]100
  96. 1120 [151]PO,86
  97. 1140 [130]
  98. 1150 [137]100
  99. 2000 [143] *** THE END ***
  100. 2010 [153]"LOAD
  101. 2020 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]  [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  102. 2040 PRINT"USE THE 'J' AND 'L' KEYS TO MOVE
  103. 2045 [151]PO,42
  104. 2050 [129]I[178]1[164]2000:[130]
  105. 2055 [153]"
  106. 2060 A=18
  107. 2070 FORI=1TO23
  108. 2072 IFA<2THENA=3
  109. 2075 IFA>34THENA=33
  110. 2080 FORJ=1TOA
  111. 2090 PRINT"[166]";
  112. 2100 NEXT
  113. 2110 PRINT"    ";
  114. 2120 FORJ=1TO39-(A+4)
  115. 2130 PRINT"[166]";
  116. 2140 NEXT
  117. 2141 PRINT
  118. 2150 A=A+INT(RND(1)*3)-1
  119. 2160 NEXT
  120. 2165 PO=PO-920
  121. 2170 FORI=1TO5000
  122. 2180 P=PEEK(197)
  123. 2185 MO=0
  124. 2190 IFP=34THENMO=-1
  125. 2200 IFP=42THENMO=1
  126. 2205 IFP=64THENMO=0
  127. 2207 JJ=PEEK(PO+MO+40)
  128. 2210 IFPEEK(PO+MO+40)=102THEN2400
  129. 2215 IFPEEK(PO+MO+40)=127THEN2700
  130. 2220 POKEPO,32
  131. 2230 PO=PO+MO
  132. 2240 POKEPO,42
  133. 2250 FORJ=1TOA
  134. 2260 PRINT"[166]";
  135. 2270 NEXT
  136. 2275 IFI=4950THENPRINT"[191][191][191][191]";:GOTO2290
  137. 2280 PRINT"    ";
  138. 2290 FORJ=1TO39-(A+4)
  139. 2300 PRINT"[166]";
  140. 2310 NEXT
  141. 2320 PRINT
  142. 2330 A=A+INT(RND(1)*3)-1
  143. 2335 IFA<2THENA=3
  144. 2337 IFA>34THENA=33
  145. 2340 NEXT
  146. 2350 END
  147. 2400 PRINT"[147]
  148. 2500 [153]"LOADHA HA HA-YOU THOUGHT YOU HAD ESCAPED"
  149. 2505 [129]JJ[178]1[164]10
  150. 2510 [129]II[178]32768[164]32807
  151. 2520 [151]II,[194](II)[170]128
  152. 2530 [130]II
  153. 2540 [129]II[178]32807[164]32768[169][171]1
  154. 2550 [151]II,[194](II)[171]128
  155. 2560 [130]II
  156. 2570 [130]JJ
  157. 2580 [137]2999
  158. 2700 [153]"LOADI ";
  159. 2710 [129]I[178]1[164]1000:[130]
  160. 2720 [153]"HAVE ";
  161. 2730 [129]I[178]1[164]1000:[130]
  162. 2740 [153]"FAILED.
  163. 2750 FORI=1TO2000:NEXT
  164. 2760 PRINT"YOU ARE ONE OF THE FEW TO SURVIVE.
  165. 2770 [129]I[178]1[164]2500:[130]
  166. 2775 TI$[178]"000000"
  167. 2780 ZD[178]1:[153]"LOAD":[137]20
  168. 2999 [138]
  169. 3000 [143] *** MINEFIELD ***
  170. 3010 [153]"LOADYOU HAVE JUST ENTERED A MINEFIELD.
  171. 3020 PRINT"STEPPING ON A MINE MEANS INSTANT
  172. 3030 [153]"DEATH.USE 'M','J','L' AND 'I' TO
  173. 3040 PRINT"MOVE TO THE 'F'.
  174. 3045 [129]I[178]1[164]5000:[130]
  175. 3050 [153]"STEP CAREFULLY!
  176. 3060 FORI=1TO3000:NEXT
  177. 3065 PRINT"[147]
  178. 3070 [129]I[178]1[164]25
  179. 3080 M[178][181]([187](1)[172]1000)[170]32768
  180. 3090 [151]M,96
  181. 3100 [130]
  182. 3110 [129]I[178]32768[164]32807
  183. 3120 [151]I,86
  184. 3130 [151]I[170]960,86
  185. 3140 [130]
  186. 3150 [129]I[178]32807[164]33727[169]40
  187. 3160 [151]I,86
  188. 3170 [151]I[170]1,86
  189. 3180 [130]
  190. 3190 [151]33598,6
  191. 3200 TP[178]32978
  192. 3210 [151]TP,42
  193. 3220 [161]A$:[139]A$[178]""[167]3220
  194. 3225 TM[178]0
  195. 3230 [139]A$[178]"M"[167]TM[178]40
  196. 3240 [139]A$[178]"J"[167]TM[178][171]1
  197. 3250 [139]A$[178]"L"[167]TM[178]1
  198. 3260 [139]A$[178]"I"[167]TM[178][171]40
  199. 3270 [139]TM[178]0[167]3220
  200. 3280 O[178][194](TP[170]TM)
  201. 3290 [139]O[178]86[167]3220
  202. 3300 [139]O[178]6[167][142]
  203. 3310 [139]O[178]96[167]3340
  204. 3320 [151]TP,32
  205. 3322 TP[178]TP[170]TM
  206. 3325 [151]TP,32
  207. 3330 [137]3210
  208. 3340 [129]I[178]1[164]100
  209. 3360 [151]TP,42
  210. 3370 [151]TP,160
  211. 3380 [151]TP,90
  212. 3390 [130]
  213. 3400 [153]"LOADHA HA HA ";
  214. 3410 [129]I[178]1[164]2000:[130]I
  215. 3420 [153]"I GOT ANOTHER ONE!
  216. 3430 FORI=1TO2000:NEXTI
  217. 3440 PRINT"";N$;" WILL BE IN LITTLE BITS
  218. 3450 [129]I[178]1[164]4000:[130]I
  219. 3460 [153]:[153]"FOR EVER!
  220. 3470 FORI=1TO4000:NEXTI
  221. 3480 RUN
  222. 3999 REM *** LASAR BEAMS ***
  223. 4000 PRINT"[147]YOU SEE THOSE POLES OVER THERE?
  224. 4010 [129]I[178]1[164]1000:[130]
  225. 4020 [153]"YOU KNOW WHAT THEY ARE?
  226. 4030 FORI=1TO1000:NEXT
  227. 4040 PRINT"LASERS
  228. 4050 [129]I[178]1[164]1000:[130]
  229. 4060 [153]"USING THE 'J' AND 'L' KEYS,YOU HAVE
  230. 4070 PRINT"5 SECONDS TO POSITION YOURSELF.
  231. 4075 [129]I[178]1[164]4000:[130]
  232. 4077 [153]"LOAD
  233. 4080 TP=33747
  234. 4090 POKE32814,87
  235. 4100 POKE32819,87
  236. 4110 POKE32824,87
  237. 4120 POKE32827,95
  238. 4130 POKE32828,105
  239. 4140 POKE32831,87
  240. 4150 POKE32836,87
  241. 4160 POKE32841,87
  242. 4170 TI$="000000"
  243. 4175 TM=0
  244. 4180 GETA$:IFA$=""THEN4200
  245. 4200 IFA$="J"THENTM=-1
  246. 4210 IFA$="L"THENTM=1
  247. 4220 IFTP+TM>33767ORTP+TM<33728THENTM=0
  248. 4240 POKETP,32
  249. 4250 TP=TP+TM
  250. 4260 POKETP,42
  251. 4270 IFTI$<"000006"THEN4180
  252. 4280 FORI=0TO10STEP5
  253. 4290 FORJ=I+32855TO33767STEP41
  254. 4300 POKEJ,77
  255. 4310 NEXT
  256. 4320 NEXT
  257. 4322 FORI=0TO10STEP5
  258. 4324 FORJ=I+32870TO33756STEP39
  259. 4326 IFPEEK(J)=28THENPOKEJ,86:GOTO4328
  260. 4327 POKEJ,78
  261. 4328 NEXTJ
  262. 4329 NEXTI
  263. 4330 FORI=32867TO33747STEP40
  264. 4340 POKEI,103
  265. 4345 POKEI+1,101
  266. 4350 NEXT
  267. 4355 FORI=1TO1500:NEXT
  268. 4360 IFPEEK(TP)=42THENRETURN
  269. 4370 PRINT"[147]DO YOU KNOW HOW PAINFULL A
  270. 4380 [153]"LASAR BEAM DEATH IS ?"
  271. 4390 [129]I[178]1[164]2000:[130]
  272. 4400 [153]"OH YES ! YOU'VE JUST HAD ONE !
  273. 4410 FORI=1TO1500:NEXT
  274. 4420 RUN
  275. 5000 REM *** GUARD DOGS ***
  276. 5001 PP=1
  277. 5010 PRINT"[147]A PACK OF FIVE GUARD DOGS ([255]) HAS
  278. 5020 [153]"BEEN SET ON YOU.YOU MUST REACH
  279. 5030 PRINT"THE 'F', BEFORE THEY REACH YOU!
  280. 5040 [129]I[178]1[164]3000:[130]I
  281. 5050 [153]"SOME CHANCE!
  282. 5060 FORI=1TO1500:NEXT
  283. 5070 PRINT"USE THE 'M','J','L' AND 'I' KEYS TO MOVE
  284. 5080 [129]I[178]1[164]2000:[130]
  285. 5090 [153]"LOAD
  286. 5100 FORI=32768TO32807
  287. 5110 POKEI,102
  288. 5120 POKEI+960,102
  289. 5130 NEXT
  290. 5140 FORI=32807TO33727STEP40
  291. 5150 POKEI,102
  292. 5160 POKEI+1,102
  293. 5170 NEXT
  294. 5173 POKE33598,6
  295. 5175 TP=32978
  296. 5176 TM=0
  297. 5180 FORI=1TO5
  298. 5190 GD(I,1)=INT(RND(1)*40)+1
  299. 5195 GD(I,2)=INT(RND(1)*24)+1
  300. 5200 IFPEEK(GD(I,1)+(GD(I,2)*40)+32768)<>32THEN5190
  301. 5210 POKEGD(I,1)+(GD(I,2)*40)+32768,94
  302. 5220 NEXT
  303. 5225 FORI=1TO500:NEXT
  304. 5230 GETA$:IFA$=""THEN5240
  305. 5240 IFA$="M"THENTM=40
  306. 5250 IFA$="J"THENTM=-1
  307. 5260 IFA$="L"THENTM=1
  308. 5270 IFA$="I"THENTM=-40
  309. 5280 IFPEEK(TP+TM)=32THEN5320
  310. 5290 IFPEEK(TP+TM)=6THENRETURN
  311. 5300 IFPEEK(TP+TM)=102THENTM=0
  312. 5310 IFPEEK(TP+TM)=94THEN3340
  313. 5320 POKETP,32
  314. 5330 TP=TP+TM
  315. 5340 POKETP,42
  316. 5345 IFDD<0THENDD=DD*-1:GOTO55230
  317. 5346 DD=DD*-1
  318. 5350 IP=TP-32768
  319. 5360 DY=INT(IP/40)
  320. 5370 DX=IP-(DY*40)
  321. 5372 IFPP<0THENPP=-PP:GOTO5225
  322. 5375 PP=-PP
  323. 5380 FORI=1TO5
  324. 5390 IFD(X)>GD(I,1)THENMX=1
  325. 5400 IFDX<GD(I,1)THENMX=-1
  326. 5405 IFDX=GD(I,1)THENMX=0
  327. 5410 IFDY>GD(I,2)THENMY=1
  328. 5420 IFDY<GD(I,2)THENMY=-1
  329. 5425 IFDY=GD(I,2)THENMY=0
  330. 5430 AD=PEEK(GD(I,1)+MX+(GD(I,2)+MY)*40+32768)
  331. 5440 IFAD=32THEN5470
  332. 5450 IFAD=42THEN3340
  333. 5460 IFAD=6THEN5510
  334. 5465 IFAD=102THEN5510
  335. 5467 IFAD=94THEN5510
  336. 5470 POKEGD(I,1)+GD(I,2)*40+32768,32
  337. 5480 GD(I,1)=GD(I,1)+MX
  338. 5490 GD(I,2)=GD(I,2)+MY
  339. 5500 POKEGD(I,1)+GD(I,2)*40+32768,94
  340. 5510 NEXT
  341. 5520 GOTO5230
  342. 5999 REM *** RHINOS ***
  343. 6000 PRINT"[147]THERE IS A HERD OF RHINOS (@)
  344. 6001 ER[178]0
  345. 6010 [153]"CHARGING YOU.YOU HAVE A CHOICE:
  346. 6020 PRINT"KEEP OUT OF THE WAY,OR BE
  347. 6030 [153]"TRAMPLED.
  348. 6035 FORI=1TO2000:NEXT
  349. 6040 PRINT"USE THE 'J' AND 'L' KEYS TO MOVE
  350. 6050 [129]I[178]1[164]2000:[130]
  351. 6060 [153]"LOAD
  352. 6065 X=0:Y=-100
  353. 6070 FORI=1TO30:PRINT:NEXT
  354. 6080 TP=32788
  355. 6090 POKETP,42
  356. 6100 A=PEEK(197)
  357. 6110 IFA=64THENTM=0
  358. 6120 IFA=34THENTM=-1
  359. 6130 IFA=42THENTM=1
  360. 6135 IFPEEK(TP+TM)=0THEN6250
  361. 6140 IFTP+TM<32769ORTP+TM>32806THENTM=0
  362. 6150 POKETP,32
  363. 6160 TP=TP+TM
  364. 6170 POKETP,42
  365. 6175 IFPEEK(TP+40)=0THEN6250
  366. 6180 IFER=1THENPRINT:GOTO6210
  367. 6181 IFX=0THEN6195
  368. 6190 PRINTSPC(INT(RND(1)*19));"@
  369. 6191 [153]"ON";[166][181]([187](1)[172]39));"@
  370. 6193 X=0:GOTO6210
  371. 6195 PRINTSPC(INT(RND(1)*12));"@
  372. 6196 [153]"ON";[166]12);[166][181]([187](1)[172]12));"@
  373. 6197 PRINT"[145]";SPC(24);SPC(INT(RND(1)*36));"@
  374. 6200 X[178]1
  375. 6210 Y[178]Y[170]1
  376. 6230 [139]Y[178]100[167]ER[178]1
  377. 6235 [139]Y[178]130[167][142]
  378. 6240 [137]6100
  379. 6250 [129]I[178]1[164]100
  380. 6260 [151]TP,0
  381. 6270 [151]TP,42
  382. 6272 [151]TP,209
  383. 6280 [130]
  384. 6290 [153]"LOADTHERES ONE ADVANTAGE TO BEING KILLED
  385. 6300 PRINT"BY A RHINO.
  386. 6310 [129]I[178]1[164]1500:[130]
  387. 6320 [153]"YOU ONLY NEED A COFFIN 2 INCHES";
  388. 6330 [153]" HIGH!
  389. 6340 FORI=1TO2000:NEXT
  390. 6350 RUN
  391. 7000 REM *** GORILLA
  392. 7010 PRINT"[147]YOU HAVE JUST ENCOUNTERED A
  393. 7020 [153]"MADWAIT GORILLA.AFTER GETTING ON YOUR
  394. 7025 PRINT"KNEES AND PLEADING WITH HIM,HE AGREES
  395. 7030 [153]"TO LET YOU GO,IF YOU CAN TELL HIM HIS
  396. 7040 PRINT"NAME.IT WILL FLASH ON THE SCREEN,
  397. 7050 [153]"VERY QUICKLY.
  398. 7060 FORI=1TO6000:NEXT
  399. 7070 PRINT"[147]
  400. 7080 [129]I[178]1[164]500:[130]
  401. 7090 I[178][181]([187](1)[172]5)[170]1
  402. 7100 [139]I[178]1[167]MG$[178]"RAYMOND"
  403. 7110 [139]I[178]2[167]MG$[178]"RICHARD"
  404. 7120 [139]I[178]3[167]MG$[178]"MATTHEW"
  405. 7130 [139]I[178]4[167]MG$[178]"JAMES"
  406. 7140 [139]I[178]5[167]MG$[178]"JACOB"
  407. 7150 [153]"";MG$
  408. 7160 TI$[178]"000000"
  409. 7170 [139]TI[179]1[167]7170
  410. 7180 [153]"LOAD
  411. 7190 INPUT"WHAT IS HIS NAME";IN$
  412. 7200 PRINT"[147]GRR-RRGH-ARGG-GGHH-";
  413. 7210 FORI=1TO2000:NEXT
  414. 7220 IFIN$<>MG$THEN7260
  415. 7230 PRINT"RIGHT-GRRR..."
  416. 7240 FORI=1TO2000:NEXT
  417. 7250 RETURN
  418. 7260 PRINT:PRINT"GHHH-WRONG-HA-GRHH-HA-GRHH-HA!
  419. 7265 [129]I[178]1[164]2000:[130]
  420. 7270 [153]"MASH-MAUL-CHOMP
  421. 7280 FORI=1TO2000:NEXT
  422. 7290 RUN
  423. 55230 FORLK=1TO200
  424. 55240 NEXT
  425. 55250 GOTO5230
  426. 60000 DATA63,84,90,98,122,135,136,143,150,169,184,201,233,256,259,287,302,310
  427. 60010 DATA335,363,437,448,459,460,482,490,495,497,499,501,503,512,545,555,607
  428. 60020 DATA608,615,616,623,624,631,632,684,694,715,746,762,769,798,817,833,836
  429. 60030 DATA844,852,862,869,888,896,904,939,940
  430.